home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / Z-Miscellaneous / (c)z4.d64 / storyteller.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  188 lines
  1. 1 REM         STORY TELLER
  2. 2 REM              BY
  3. 3 REM          BOB BAXTER
  4. 4 :
  5. 5 :
  6. 6 REM  AFTER THE TITLE PAGE APPEARS
  7. 7 REM  PRESS <SPACE BAR> TO CONTINUE
  8. 8 :
  9. 9 :
  10. 10 PRINT""CHR$(14);:X=0:Y=0:Z=RND(-TI):DIMWD$(302):T1=INT(3*RND(1))
  11. 20 READA:IFA=-1THENWD$(X)="*":GOSUB200:GOTO100
  12. 30 FORY=1TOA:READRW$(Y):NEXT:WD$(X)=RW$(INT(A*RND(1)+1)):X=X+1
  13. 40 IFX=1THENGOSUB600
  14. 50 IFX=75THENGOSUB700
  15. 60 IFX=150THENGOSUB800
  16. 70 IFX=200THENGOSUB900
  17. 80 IFX=255THENGOSUB930
  18. 99 GOTO20
  19. 100 X=0
  20. 110 LI=PEEK(214):CO=PEEK(211):LE=LEN(WD$(X))
  21. 118 IFLI>22ANDCO>23THENGOSUB200:GOTO110
  22. 120 IFLE+CO>38THENPRINTCHR$(13)CHR$(13);
  23. 122 IFWD$(X)="^"THENPRINTCHR$(13)CHR$(13):X=X+1:GOTO110
  24. 130 PRINTWD$(X)" ";
  25. 135 GOSUB300:X=X+1
  26. 140 IFWD$(X)="*"THEN250
  27. 150 GOTO110
  28. 200 GETWT$:IFWT$=""THEN200ORWT$<>CHR$(78)THEN200
  29. 210 IFWT$=CHR$(32)THENPRINT"[147]";:RETURN
  30. 220 IFWT$=CHR$(78)THENRUN
  31. 230 GOTO200
  32. 250 IFPEEK(214)>21THENGOSUB200
  33. 255 PRINTCHR$(17)CHR$(17):PRINTSPC(15)"[212][200][197]  [197][206][196]";
  34. 260 POKE214,23:PRINT:PRINT"  [206][146]EW STORY"SPC(15)"[210][146]EPEAT STORY";
  35. 270 GETA$:IFA$=""THEN270
  36. 280 IFA$="N"THENRUN
  37. 285 IFA$="R"THENGOSUB600:GOSUB700:GOSUB800:GOSUB900:GOSUB930:GOSUB200:GOTO100
  38. 290 GOTO270
  39. 300 IFX=19THENW=4:GOSUB400:W=5:GOSUB400:W=6:GOSUB400:W=7:GOSUB400:W=8:GOSUB400
  40. 301 IFX=19THENW=9:GOSUB400
  41. 302 IFX=33THENW=31:GOSUB400
  42. 304 IFX=35THENW=9:GOSUB400
  43. 306 IFX=48THENW=9:GOSUB400
  44. 308 IFX=52THENW=38:GOSUB400
  45. 310 IFX=63THENW=9:GOSUB400
  46. 312 IFX=78THENW=58:GOSUB400
  47. 314 IFX=83THENW=4:GOSUB400:W=5:GOSUB400:W=6:GOSUB400:W=7:GOSUB400:W=8:GOSUB400
  48. 315 IFX=83THENW=9:GOSUB400
  49. 318 IFX=97THENW=9:GOSUB400
  50. 320 IFX=106THENW=9:GOSUB400
  51. 322 IFX=123THENW=4:GOSUB400:W=5:GOSUB400:W=6:GOSUB400:W=7:GOSUB400:W=8:GOSUB400
  52. 323 IFX=123THENW=9:GOSUB400
  53. 324 IFX=139THENW=121:GOSUB400
  54. 326 IFX=167THENW=4:GOSUB400:W=9:GOSUB400
  55. 328 IFX=176THENW=30:GOSUB400:W=31:GOSUB400
  56. 330 IFX=180THENW=58:GOSUB400
  57. 332 IFX=208THENW=4:GOSUB400:W=5:GOSUB400:W=6:GOSUB400:W=7:GOSUB400:W=8:GOSUB400
  58. 333 IFX=208THENW=9:GOSUB400
  59. 334 IFX=222THENW=212:GOSUB400
  60. 336 IFX=223THENW=216:GOSUB400
  61. 338 IFX=249THENW=9:GOSUB400
  62. 340 IFX=258THENW=216:GOSUB400
  63. 342 IFX=262THENW=4:GOSUB400:W=5:GOSUB400:W=6:GOSUB400:W=7:GOSUB400:W=8:GOSUB400
  64. 343 IFX=262THENW=9:GOSUB400
  65. 344 IFX=264THENW=9:GOSUB400
  66. 346 IFX=270THENW=4:GOSUB400:W=9:GOSUB400
  67. 348 IFX=282THENW=9:GOSUB400
  68. 350 IFX=293THENW=4:GOSUB400:W=5:GOSUB400:W=6:GOSUB400:W=7:GOSUB400:W=8:GOSUB400
  69. 351 IFX=293THENW=9:GOSUB400
  70. 352 IFX=297THENW=216:GOSUB400
  71. 399 RETURN
  72. 400 LI=PEEK(214):CO=PEEK(211):LE=LEN(WD$(W))
  73. 410 IFLE+CO>38THENPRINTCHR$(13)CHR$(13);
  74. 430 PRINTWD$(W)" ";
  75. 440 IFLI>22ANDCO>23THENGOSUB200
  76. 450 RETURN
  77. 600 CH=1024:CL=55296:PRINT"[147]"
  78. 610 GR=160:CR=15:S=19:T=20:FORU=1TO20
  79. 620 POKECH+S,GR:POKECL+S,CR:POKECH+T,GR:POKECL+T,CR:S=S-1:T=T+1:NEXT
  80. 630 S=40:T=79:FORU=1TO24
  81. 640 POKECH+S,GR:POKECL+S,CR:POKECH+T,GR:POKECL+T,CR:S=S+40:T=T+40:NEXT
  82. 650 S=961:T=998:FORU=1TO19
  83. 660 POKECH+S,GR:POKECL+S,CR:POKECH+T,GR:POKECL+T,CR:S=S+1:T=T-1:NEXT
  84. 670 RETURN
  85. 700 T$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  86. 710 B$[178]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  87. 720 L$="[167][157][167][157][167][157][167][157][167][157][167][157][167]
  88. 730 R$[178]"FNCMDFNCMDFNCMDFNCMDFNCMDFNCMDFN
  89. 740 POKE214,1:PRINT:PRINTSPC(10)T$:POKE214,8:PRINT:PRINTSPC(10)B$
  90. 750 POKE214,2:PRINT:PRINTSPC(9)L$:POKE214,2:PRINT:PRINTSPC(29)R$
  91. 760 POKE214,3:PRINT:PRINTSPC(13)"[211][212][207][210][217][160][212][197][204][204][197][210]":PRINTSPC(19)"BY"
  92. 770 PRINTSPC(14)"[194]OB [194]AXTER"
  93. 780 RETURN
  94. 800 FORV=0TO8STEP8:POKE214,12+V:PRINT:PRINTSPC(3);:FORU=1TO34:PRINT"[166]";:NEXTU,V
  95. 810 POKE214,13:PRINT:FORV=1TO7:PRINTSPC(3)"[166]"SPC(32)"[166]":NEXT
  96. 820 RETURN
  97. 900 A$(0)="TALE ":A$(1)="ADVENTURES ":A$(2)="STORY "
  98. 910 A1$="[212]HIS IS THE "+A$(T1):A1=20-(INT(LEN(A1$))/2)
  99. 920 POKE214,14:PRINT:PRINTSPC(A1)A1$:PRINTSPC(59)"OF":RETURN
  100. 930 S$=" ":A2$="THE "+WD$(5)+S$+WD$(6)+S$+WD$(7)+S$+WD$(9)
  101. 940 A2=20-(INT(LEN(A2$))/2)
  102. 950 PRINTSPC(40+A2)A2$
  103. 960 RETURN
  104. 1000 DATA4,"    [207]NCE UPON A TIME","   [207]NE DAY","    [201]N A GALAXY FAR FAR AWAY"
  105. 1010 DATA"    [206]OT TOO LONG AGO"
  106. 1020 DATA1,"THERE",1,"WAS",1,"THIS"
  107. 1030 DATA7,"TALL","TINY","FAT","SKINNY","SMALL","HUGE","CUTE"
  108. 1040 DATA6,"PURPLE","ORANGE","RED","GREEN","SILVER","WHITE"
  109. 1050 DATA1,"AND"
  110. 1060 DATA6,"PINK","YELLOW","BLUE","GOLD","BLACK","GREY"
  111. 1070 DATA3,"POLKA DOTTED","CHECKED","STRIPED"
  112. 1080 DATA6,"GORILLA","MOUSE","ELEPHANT","PIG","ANT","TURTLE"
  113. 1083 DATA1,"WITH",4,"ORANGE","BLUE","YELLOW","GREEN",1,"HAIR",1,"ON",1,"IT'S"
  114. 1087 DATA5,"NOSE.","FEET.","BELLYBUTTON.","EARS.","NECK."
  115. 1090 DATA1,"[193]LL",3,"MORNING","AFTERNOON","EVENING",1,"LONG",1,"THIS",1,"WOULD"
  116. 1100 DATA5,"LIE","RUN","WALK","SKIP","HOP",1,"AROUND",1,"IN"
  117. 1110 DATA2,"HIS","HER",4,"BEDROOM","BATHROOM","KITCHEN","PLAYHOUSE"
  118. 1120 DATA1,"NOT",1,"KNOWING",1,"THERE",1,"WERE",4,"200","400","1000","5000"
  119. 1130 DATA5,"MONKEYS","LIONS","FLYS","CAMELS","FISH",1,"WATCHING."
  120. 1140 DATA1,"[212]HESE",1,"THOUGHT",1,"THE",1,"WAS",1,"ACTING",3,"NORMALLY","SILLY"
  121. 1150 DATA"CRAZY",1,"AND",1,"LOOKED",1,"IT",1,"RIGHT",1,"IN",1,"THE",5,"NOSE"
  122. 1160 DATA"EAR","MOUTH","KNEE","ELBOW",1,"AND",1,"SAID,",1,"YOU",1,"YOU,"
  123. 1170 DATA1,"INSTEAD",1,"OF",1,"ACTING",1,"WHY",1,"DON'T",1,"YOU",1,"JOIN"
  124. 1180 DATA1,"OUR",3,"ORCHESTRA","MARCHING BAND","BAND",1,"AND",1,"PLAY",1,"AN"
  125. 1190 DATA1,"INSTRUMENT?"
  126. 1200 DATA1,"[212]HE",1,"THOUGHT",1,"THIS",1,"WAS",1,"A",3,"FANTASTIC","GREAT"
  127. 1210 DATA"GOOD",1,"IDEA",1,"AND",1,"PICKED",1,"UP",1,"THE",6,"VIOLIN","TUBA"
  128. 1220 DATA"FLUTE","BASS DRUM","GUITAR","TROMBONE",1,"AND",1,"STARTED"
  129. 1230 DATA1,"PLAYING.",1,"[212]HE",1,"SOUNDED",1,"LIKE",4,"AN ELECTRIC DRILL."
  130. 1240 DATA"RACE CARS.","CATS MEOWING.","DOGS BARKING.",1,"[205]AYBE",1,"THE"
  131. 1250 DATA1,"SHOULD",1,"STICK",1,"TO",3,"FISHING,","MOWING GRASS,"
  132. 1260 DATA"PLAYING GOLF,",1,"IT IS",1,"MUCH",1,"BETTER",1,"AT",1,"THAT."
  133. 1270 DATA1,"^",1,"   [204]ATER",1,"THAT",3,"HOUR","DAY","WEEK",1,"THE",1,"FELT"
  134. 1280 DATA3,"TIRED,","DROWSY,","SLEEPY,",1,"IT",1,"WAS",1,"TIME",1,"TO"
  135. 1290 DATA3,"GO TO SLEEP.","TAKE A NAP.","REST.",1,"[211]O",1,"THE",4,"CRAWLED"
  136. 1300 DATA"HOPPED","JUMPED","DOVE",1,"INTO",1,"IT'S",4,"BATHTUB","CRIB"
  137. 1310 DATA"MOTORHOME","DRAWER",1,"AND",3,"PLAYED CARDS.","CUT IT'S TOENAILS."
  138. 1320 DATA"TICKLED IT'S BELLYBUTTON."
  139. 1330 DATA1,"[193]FTER",5,"TWO SECONDS","THREE MINUTES","45 MINUTES","ONE HOUR"
  140. 1340 DATA"FIVE HOURS",1,"IT",1,"WAS",1,"FINALLY",1,"TIME",1,"TO",1,"EAT"
  141. 1350 DATA3,"LUNCH.","DINNER.","BREAKFAST."
  142. 1360 DATA1,"[211]O",1,"THE",1,"WENT",1,"TO",1,"THE",3,"LIVING ROOM","DINING ROOM"
  143. 1370 DATA"KITCHEN",1,"AND",1,"SAT",1,"IN",1,"IT'S",1,"FAVORITE"
  144. 1380 DATA3,"HIGH CHAIR","BOOSTER SEAT","CRIB",1,"AND",1,"GOT",1,"READY",1,"TO"
  145. 1390 DATA3,"GULP","SLURP","GOBBLE",2,"DOWN","UP",1,"^",1,"   [212]HERE",1,"ON"
  146. 1395 DATA1,"THE"
  147. 1400 DATA3,"FLOOR","COUCH","ROCKING CHAIR",1,"READY",1,"TO",1,"EAT",1,"WERE"
  148. 1410 DATA5,"59","23","374","548","943",2,"CUPS","BOWLS",1,"OF"
  149. 1420 DATA5,"STRAWBERRY","CARROT","PEACH","PUMPKIN","CORN",1,"SOUP,"
  150. 1430 DATA5,"45","78","235","872","674",2,"SLICES","LOAVES",1,"OF"
  151. 1440 DATA5,"APPLE","PLUM","AVACADO","BANANA","RASIN",1,"BREAD,"
  152. 1450 DATA5,"12","94","319","491","260",5,"LAMB CHOPS","STEAKS","PORK CHOPS"
  153. 1460 DATA"HAMBURGERS","HOT DOGS",1,"AND",5,"24","49","12","126","74"
  154. 1470 DATA1,"GLASSES",1,"OF",5,"WATERMELON","CRANBERRY","ORANGE","PRUNE"
  155. 1480 DATA"CELERY",1,"JUICE.",1,"[212]HE",1,"ATE",1,"ALL",1,"THE",1,"FOOD"
  156. 1490 DATA1,"IN",1,"ONLY",5,"5","2","6","8","9",2,"SECONDS.","MINUTES."
  157. 1500 DATA1,"[212]HE",1,"WHO",1,"PLAYED",1,"IN",1,"THE",1,"EARLIER",1,"COULDN'T"
  158. 1510 DATA1,"BELIEVE",1,"THEIR",1,"EYES,",1,"BUT",1,"THEN",1,"AGAIN"
  159. 1520 DATA1,"AT",1,"IT'S",1,"MEAL",4,"LAST NIGHT","YESTERDAY","AN HOUR AGO"
  160. 1530 DATA"TWO DAYS AGO",1,"IT",1,"ATE",5,"210","55","12","37","531"
  161. 1540 DATA4,"WATERMELONS","CUPS OF YOGURT","POPSICLES","CHEESEBURGERS"
  162. 1550 DATA1,"WITHOUT",1,"STOPPING.",1,"^",1,"   [193]",1,"SHORT",1,"TIME",1,"LATER"
  163. 1560 DATA1,"IT",1,"WAS",2,"FUNTIME,","PLAYTIME,",1,"SO",1,"THE"
  164. 1570 DATA5,"PLODDED","RAN","WALKED","SKIPPED","HOPPED"
  165. 1580 DATA1,"TO",1,"THE",4,"BACKYARD","PLAYGROUND","SCHOOLYARD","PARK"
  166. 1590 DATA1,"TO",1,"MEET",1,"SOME",2,"BUDDIES","FRIENDS",1,"TO"
  167. 1595 DATA1,"PLAY",1,"WITH."
  168. 1600 DATA1,"[215]HILE",1,"AT",1,"THE",1,"IT'S",5,"THE UGLY DUCKLING,"
  169. 1610 DATA"THE BIG BAD WOLF,","HUMPTY DUMPTY,","THE THREE LITTLE PIGS,"
  170. 1620 DATA"MICKEY MOUSE,",5,"DONALD DUCK,","SUPERMAN,","GOOFY,","WONDERWOMAN,"
  171. 1630 DATA"MIGHTY MOUSE",1,"AND",5,"PETER PAN","PAPA SMURF","FRED FLINSTONE"
  172. 1640 DATA"THE PRINCESS","POPEYE",1,"WERE",1,"ALL",1,"PLAYING",1,"ON",1,"THE"
  173. 1650 DATA4,"SLIDE.","MERRY-GO-ROUND.","SWINGS.","JUNGLE GYM."
  174. 1660 DATA1,"[193]LL",1,"THE",3,"ANIMALS","KIDS","BRATS",1,"PLAYED",1,"FOR"
  175. 1670 DATA1,"HOURS",1,"UNTIL",1,"THEY",1,"HEARD",1,"SOMEBODY",3,"SCREAMING,"
  176. 1680 DATA"CALLING,","YELLING,",1,"IT",1,"WAS",1,"TIME",1,"FOR",1,"THE"
  177. 1690 DATA1,"TO",1,"GO",1,"HOME",1,"AND",1,"GO TO",1,"SLEEP."
  178. 1700 DATA1,"[211]O",1,"ALL",1,"THE",1,"WAVED",2,"GOODBYE","BYE-BYE",1,"TO"
  179. 1710 DATA1,"THE",1,"AND",1,"THE",1,"WENT",1,"HOME.",1,"^"
  180. 1720 DATA1,"   [193]T",1,"HOME",1,"THE",1,"ASKED",1,"IT'S",4,"MOMMY","DADDY"
  181. 1730 DATA"UNCLE","AUNTIE",1,"TO",1,"READ",1,"A",1,"BEDTIME",1,"STORY."
  182. 1740 DATA1,"[193]FTER",1,"THE",1,"STORY",1,"THE",1,"SAID",1,"IT",1,"WAS"
  183. 1750 DATA2,"LUCKY","FORTUNATE",1,"TO",1,"HAVE",1,"SO",1,"MANY",1,"GOOD"
  184. 1760 DATA1,"FRIENDS.",1,"[212]HE",1,"AND",1,"ALL",1,"IT'S",1,"GOOD",1,"LIVED"
  185. 1770 DATA1,"HAPPILY",1,"EVER",1,"AFTER."
  186. 2000 DATA-1
  187. 17201 ,"   [193]T",1,"HOME",1,"THE",1,"ASKED",1,"IT'S",4,"MOMMY","DADDY","UNCLE"
  188.